home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Discovery of Galilean moons.gt5 < prev    next >
Text File  |  2003-08-12  |  12KB  |  359 lines
  1. Set wnd = OpenWorkspace("gal_sat.ws5")
  2. Set Camera = wnd.camera
  3. Set theTime = camera.time
  4. Set Direction = camera.Direction
  5. Set Location = camera.Location
  6. '---- end standard prologue'
  7. wnd.MDIWindow.State = SW_MAXIMIZE
  8.  
  9. set flt = wnd.Filters
  10. set sky_obj = flt.objects
  11. set moons = sky_obj.moons
  12.  set obj=Direction.Object
  13.  set txt1 = CreateTextWindow
  14.  flt.objects.planets.Label(5)=False
  15. set pl =PlayerWindow
  16. pl.top=Screen.height-150
  17. pl.left=Screen.width-200
  18. txt1.Loadfile "gal_sat_w1.html"
  19. txt1.SetCaption "7th January"
  20. txt1.Locate 0,0,450,100
  21. txt1.Show
  22.  Direction.Zoom = 2.20000000000000E+000 : UpdateWindows
  23.  Direction.Zoom = 3.40000000000000E+000 : UpdateWindows
  24.  Direction.Zoom = 4.60000000000000E+000 : UpdateWindows
  25.  Direction.Zoom = 5.80000000000000E+000 : UpdateWindows
  26.  Direction.Zoom = 7.00000000000000E+000 : UpdateWindows
  27.  Direction.Zoom = 8.20000000000000E+000 : UpdateWindows
  28.  Direction.Zoom = 9.40000000000000E+000 : UpdateWindows
  29.  Direction.Zoom = 10.6000000000000E+000 : UpdateWindows
  30.  Direction.Zoom = 11.8000000000000E+000 : UpdateWindows
  31.  Direction.Zoom = 13.0000000000000E+000 : UpdateWindows
  32.  Direction.Zoom = 14.2000000000000E+000 : UpdateWindows
  33.  Direction.Zoom = 15.4000000000000E+000 : UpdateWindows
  34.  Direction.Zoom = 16.6000000000000E+000 : UpdateWindows
  35.  Direction.Zoom = 17.8000000000000E+000 : UpdateWindows
  36.  Direction.Zoom = 19.0000000000000E+000 : UpdateWindows
  37.  Direction.Zoom = 20.2000000000000E+000 : UpdateWindows
  38.  Direction.Zoom = 21.2000000000000E+000 : UpdateWindows
  39.  Direction.Zoom = 22.2000000000000E+000 : UpdateWindows
  40.  flt.objects.planets.Label(5)=True : UpdateWindows
  41.  moons.Label(501) = True : UpdateWindows
  42.  moons.Label(502) = True : UpdateWindows
  43.  moons.Label(503) = True : UpdateWindows
  44.  moons.Label(504) = True : UpdateWindows
  45.  pause 4000
  46.  Direction.Zoom = 100.0000000000000E+000 : UpdateWindows
  47.  pause 4000
  48.  txt1.Locate 0,0,450,85
  49.  txt1.Loadfile "gal_sat_w2.html"
  50.  moons.Magnification(501)=10 : UpdateWindows
  51.  moons.Magnification(502)=10 : UpdateWindows
  52.  moons.Magnification(503)=10 : UpdateWindows
  53.  moons.Magnification(504)=10 : UpdateWindows
  54.  pause 1000
  55.  moons.Label(503) = False
  56.  moons.Label(504) = False : UpdateWindows
  57.  moons.Magnification(501)=40 : UpdateWindows
  58.  moons.Magnification(502)=40 : UpdateWindows
  59.  pause 1000
  60.  moons.Magnification(501)=125 : UpdateWindows
  61.  moons.Magnification(502)=125 : UpdateWindows
  62.  pause 1000
  63.  moons.Magnification(501)=40 : UpdateWindows
  64.  moons.Magnification(502)=40 : UpdateWindows
  65.  pause 1000
  66.  moons.Magnification(501)=125 : UpdateWindows
  67.  moons.Magnification(502)=125 : UpdateWindows
  68.  pause 1000
  69.  moons.Magnification(501)=40 : UpdateWindows
  70.  moons.Magnification(502)=40 : UpdateWindows
  71.  pause 1000
  72.  moons.Magnification(501)=125 : UpdateWindows
  73.  moons.Magnification(502)=125 : UpdateWindows
  74.  pause 1000
  75.  moons.Magnification(501)=40 : UpdateWindows
  76.  moons.Magnification(502)=40 : UpdateWindows
  77.  pause 2000
  78.  moons.Magnification(503)=1
  79.  moons.Magnification(504)=1
  80.  moons.Magnification(501)=1
  81.  moons.Magnification(502)=1
  82.  moons.Label(501) = False
  83.  moons.Label(502) = False 
  84.  flt.objects.planets.Label(5)=False
  85.  Direction.Zoom = 22.2000000000000E+000 : UpdateWindows
  86.  theTime.JDstr = "2309108.25000"
  87.  txt1.Locate 0,0,450,100
  88.  txt1.Loadfile "gal_sat_w3.html"
  89.  txt1.SetCaption "8th January"
  90.  pause 2000
  91.  moons.Label(504) = True
  92.  moons.Magnification(504)=10 : UpdateWindows
  93.  pause 1000
  94.  moons.Magnification(504)=40 : UpdateWindows
  95.  pause 1000
  96.  moons.Magnification(504)=125 : UpdateWindows
  97.  pause 1000
  98.  moons.Magnification(504)=40 : UpdateWindows
  99.  pause 1000
  100.  moons.Magnification(504)=125 : UpdateWindows
  101.  pause 1000
  102.  moons.Magnification(504)=40 : UpdateWindows
  103.  pause 1000
  104.  moons.Magnification(504)=125 : UpdateWindows
  105.  pause 1000
  106.  moons.Magnification(504)=40 : UpdateWindows
  107.  pause 1000
  108.  moons.Label(504) = False
  109.  moons.Magnification(504)=1 : UpdateWindows
  110.  theTime.JDstr = "2309112.25000"
  111. txt1.Loadfile "gal_sat_w4.html"
  112. txt1.SetCaption "12th January"
  113.  pause 3000
  114.  flt.objects.planets.Label(5)=True
  115.  moons.Label(501) = True : UpdateWindows
  116.  moons.Label(502) = True : UpdateWindows
  117.  moons.Label(503) = True : UpdateWindows
  118.  moons.Label(504) = True : UpdateWindows
  119.  pause 1000
  120.  moons.ImageType(503)=3
  121.  moons.ImageType(502)=3
  122.  Direction.Zoom = 100.0000000000000E+000 : UpdateWindows
  123.  pause 2000
  124.  moons.ImageType(503)=0
  125.  moons.ImageType(502)=0
  126.  moons.Label(503) = False
  127.  moons.Label(502) = False
  128.  Direction.Zoom = 50.0000000000000E+000 : UpdateWindows
  129.  pause 1000
  130.  moons.Magnification(504)=40 : UpdateWindows
  131.  moons.Magnification(501)=40 : UpdateWindows
  132. pause 1000
  133.  moons.Magnification(504)=125 : UpdateWindows
  134.  moons.Magnification(501)=125 : UpdateWindows
  135. pause 1000
  136.  moons.Magnification(501)=40 : UpdateWindows
  137.  moons.Magnification(504)=40 : UpdateWindows
  138. pause 1000
  139.  moons.Magnification(504)=125 : UpdateWindows
  140.  moons.Magnification(501)=125 : UpdateWindows
  141. pause 1000
  142.  moons.Magnification(501)=40 : UpdateWindows
  143.  moons.Magnification(504)=40 : UpdateWindows
  144. pause 1000
  145.  moons.Magnification(501)=1 : UpdateWindows
  146.  moons.Magnification(504)=1 : UpdateWindows
  147. pause 1000
  148.  flt.objects.planets.Label(5)=False
  149.  moons.Label(501) = False
  150.  moons.Label(504) = False
  151.  moons.ImageType(503)=0
  152.  moons.ImageType(502)=0
  153.  Direction.Zoom = 22.2000000000000E+000 : UpdateWindows
  154.  theTime.JDstr = "2309113.25000"
  155. txt1.Loadfile "gal_sat_w5.html"
  156. txt1.SetCaption "13th January"
  157. pause 3000
  158.  Direction.Zoom = 100.0000000000000E+000 : UpdateWindows
  159.  flt.objects.planets.Label(5)=True
  160.  moons.Label(501) = True
  161.  moons.Label(502) = True
  162.  moons.Label(503) = True
  163.  moons.Label(504) = True : UpdateWindows
  164. pause 3000
  165.  flt.objects.planets.Label(5)=False
  166.  moons.Label(501) = False
  167.  moons.Label(502) = False
  168.  moons.Label(503) = False
  169.  moons.Label(504) = False
  170.  Direction.Zoom = 22.2000000000000E+000 : UpdateWindows
  171.  theTime.JDstr = "2309115.25000"
  172. txt1.Loadfile "gal_sat_w6.html"
  173. txt1.SetCaption "15th January"
  174.  pause 3000
  175.  flt.objects.planets.Label(5)=True
  176.  moons.Label(501) = True : UpdateWindows
  177.  moons.Label(502) = True : UpdateWindows
  178.  moons.Label(503) = True : UpdateWindows
  179.  moons.Label(504) = True : UpdateWindows
  180.  Direction.Zoom = 26.6400000000000E+000 : UpdateWindows
  181.  Direction.Zoom = 31.968000000000E+000 : UpdateWindows
  182.  Direction.Zoom = 38.36200000000000E+000 : UpdateWindows
  183.  Direction.Zoom = 46.0340000000000E+000 : UpdateWindows
  184.  Direction.Zoom = 55.2410000000000E+000 : UpdateWindows
  185.  Direction.Zoom = 66.2890000000000E+000 : UpdateWindows
  186.  Direction.Zoom = 79.5470000000000E+000 : UpdateWindows
  187.  Direction.Zoom = 95.4560000000000E+000 : UpdateWindows
  188.  Direction.Zoom = 114.5470000000000E+000 : UpdateWindows
  189. pause 3000
  190.  theTime.Units = 3
  191.  theTime.step = 3.00000000000000E+001
  192.  Direction.Zoom = 1.20000000000000E+002 : UpdateWindows
  193.  Direction.DispCoord = 1
  194.  Direction.Mode = 1
  195.  Direction.BasePlane = 0
  196.  flt.objects.planets.Label(5)=False
  197.  moons.Label(501) = False
  198.  moons.Label(502) = False
  199.  moons.Label(503) = False
  200.  moons.Label(504) = False : UpdateWindows
  201.  moons.orbit(501) = True : UpdateWindows
  202.  moons.orbit(502) = True : UpdateWindows
  203.  moons.orbit(503) = True : UpdateWindows
  204.  moons.orbit(504) = True : UpdateWindows
  205. txt1.Loadfile "gal_sat_w7.html"
  206. txt1.SetCaption " "
  207.  theTime.Forward
  208.  WaitFrames 20
  209.  theTime.Stop
  210.  flt.objects.planets.Label(5)=True
  211.  moons.Label(501) = True : UpdateWindows
  212.  moons.Label(502) = True : UpdateWindows
  213.  moons.Label(503) = True : UpdateWindows
  214.  moons.Label(504) = True : UpdateWindows
  215.  moons.ImageType(501)=2
  216.  moons.ImageType(502)=2
  217.  moons.ImageType(503)=2
  218.  moons.ImageType(504)=2 : UpdateWindows
  219.  theTime.Forward
  220.  WaitFrames 20
  221.  theTime.Stop
  222.  Direction.Zoom = 8.0000000000000E+002 : UpdateWindows
  223.  theTime.step = 1.00000000000000E+001
  224.  moons.ImageType(505)=2
  225.  moons.orbit(505) = True : UpdateWindows
  226.  moons.Label(505) = True : UpdateWindows
  227.  pause 1000
  228.  moons.ImageType(514)=2
  229.  moons.orbit(514) = True : UpdateWindows
  230.  moons.Label(514) = True : UpdateWindows
  231.  pause 1000
  232.  moons.ImageType(515)=2
  233.  moons.orbit(515) = True : UpdateWindows
  234.  moons.Label(515) = True : UpdateWindows
  235.  pause 1000
  236.  moons.ImageType(516)=2
  237.  moons.orbit(516) = True : UpdateWindows
  238.  moons.Label(516) = True : UpdateWindows
  239.  theTime.Forward
  240.  WaitFrames 30
  241.  theTime.Stop
  242.  txt1.Locate 0,0,450,85
  243.  txt1.Loadfile "gal_sat_w8.html"
  244.  txt1.SetCaption "Nowadays... "
  245.  flt.objects.planets.Label(5)=False
  246.  moons.Label(505) = False
  247.  moons.Label(514) = False
  248.  moons.Label(515) = False
  249.  moons.Label(516) = False
  250.  moons.Label(501) = False
  251.  moons.Label(502) = False
  252.  moons.Label(503) = False
  253.  moons.Label(504) = False
  254.  Direction.Zoom = 1.0000000000000E+001 : UpdateWindows
  255.  moons.ImageType(505)=0
  256.  moons.ImageType(514)=0
  257.  moons.ImageType(515)=0
  258.  moons.ImageType(516)=0
  259.  moons.ImageType(501)=0
  260.  moons.ImageType(502)=0
  261.  moons.ImageType(503)=0
  262.  moons.ImageType(504)=0
  263.  moons.ImageType(506)=2
  264.  moons.Label(506) = True : UpdateWindows
  265.  moons.orbit(506) = True : UpdateWindows
  266.  pause 1000
  267.  moons.ImageType(507)=2
  268.  moons.Label(507) = True : UpdateWindows
  269.  moons.orbit(507) = True : UpdateWindows
  270.  pause 1000
  271.  moons.ImageType(508)=2
  272.  moons.Label(508) = True : UpdateWindows
  273.  moons.orbit(508) = True : UpdateWindows
  274.  pause 1000
  275.  moons.ImageType(509)=2
  276.  moons.Label(509) = True : UpdateWindows
  277.  moons.orbit(509) = True : UpdateWindows
  278.  pause 1000
  279.  moons.ImageType(510)=2
  280.  moons.Label(510) = True : UpdateWindows
  281.  moons.orbit(510) = True : UpdateWindows
  282.  pause 1000
  283.  moons.ImageType(511)=2
  284.  moons.Label(511) = True : UpdateWindows
  285.  moons.orbit(511) = True : UpdateWindows
  286.  pause 1000
  287.  moons.ImageType(512)=2
  288.  moons.Label(512) = True : UpdateWindows
  289.  moons.orbit(512) = True : UpdateWindows
  290.  pause 1000
  291.  moons.ImageType(513)=2
  292.  moons.Label(513) = True : UpdateWindows
  293.  moons.orbit(513) = True : UpdateWindows
  294.  pause 1000
  295.  moons.ImageType(517)=2
  296.  moons.Label(517) = True : UpdateWindows
  297.  moons.orbit(517) = True : UpdateWindows
  298.  pause 1000
  299.  moons.ImageType(518)=2
  300.  moons.Label(518) = True : UpdateWindows
  301.  moons.orbit(518) = True : UpdateWindows
  302.  pause 1000
  303.  moons.ImageType(519)=2
  304.  moons.Label(519) = True : UpdateWindows
  305.  moons.orbit(519) = True : UpdateWindows
  306.  pause 1000
  307.  moons.ImageType(520)=2
  308.  moons.Label(520) = True : UpdateWindows
  309.  moons.orbit(520) = True : UpdateWindows
  310.  pause 1000
  311.  moons.ImageType(521)=2
  312.  moons.Label(521) = True : UpdateWindows
  313.  moons.orbit(521) = True : UpdateWindows
  314.  pause 1000
  315.  moons.ImageType(522)=2
  316.  moons.Label(522) = True : UpdateWindows
  317.  moons.orbit(522) = True : UpdateWindows
  318.  pause 1000
  319.  moons.ImageType(523)=2
  320.  moons.Label(523) = True : UpdateWindows
  321.  moons.orbit(523) = True : UpdateWindows
  322.  pause 1000
  323.  moons.ImageType(524)=2
  324.  moons.Label(524) = True : UpdateWindows
  325.  moons.orbit(524) = True : UpdateWindows
  326.  pause 1000
  327.  moons.ImageType(525)=2
  328.  moons.Label(525) = True : UpdateWindows
  329.  moons.orbit(525) = True : UpdateWindows
  330.  pause 1000
  331.  moons.ImageType(526)=2
  332.  moons.Label(526) = True : UpdateWindows
  333.  moons.orbit(526) = True : UpdateWindows
  334.  pause 1000
  335.  moons.ImageType(527)=2
  336.  moons.Label(527) = True : UpdateWindows
  337.  moons.orbit(527) = True : UpdateWindows
  338.  pause 1000
  339.  moons.ImageType(528)=2
  340.  moons.Label(528) = True : UpdateWindows
  341.  moons.orbit(528) = True : UpdateWindows
  342.  pause 1000
  343.  moons.ImageType(529)=2
  344.  moons.Label(529) = True : UpdateWindows
  345.  moons.orbit(529) = True : UpdateWindows
  346.  pause 1000
  347.  moons.ImageType(530)=2
  348.  moons.Label(530) = True : UpdateWindows
  349.  moons.orbit(530) = True : UpdateWindows
  350.  pause 1000
  351.  theTime.Units = 1
  352.  theTime.step = 1.00000000000000E+000
  353.  theTime.Forward
  354.  WaitFrames 30
  355.  theTime.Stop
  356.  txt1.Close
  357. ' end recording
  358.  
  359.